library(tidyverse)
library(plotly)
importing dataset
library(p8105.datasets)
data("rest_inspec")
rest_inspec %>%
janitor::clean_names() %>%
count(boro, grade) %>%
mutate(
boro = fct_reorder(boro, n),
grade = fct_reorder(grade, n)
) %>%
filter(boro != "0", grade != "NA") %>%
plot_ly(
x = ~boro, y = ~n, color = ~grade,
type = "bar", colors = ~"viridis"
) %>%
layout(
title = "NYC Restaurant Inspection Grades by Borough",
xaxis = list(title = "Borough"),
yaxis = list(title = "number of restaurants")
)
rest_inspec %>%
filter(latitude != "0", longitude != "0", boro == "Manhattan") %>%
mutate(
label = str_c("score:", score)) %>%
plot_ly(
x = ~latitude, y = ~longitude, color = ~score,
text = ~label,
type = "scatter", mode = "markers", alpha = 0.5
) %>%
layout(
title = "NYC Restaurant Inspection Scores in Manhattan"
)
rest_inspec %>%
filter(boro != "0") %>%
drop_na() %>%
mutate(
boro = fct_reorder(boro, score)
) %>%
plot_ly(
x = ~boro, y = ~score, color = ~boro,
type = "box", colors = ~"viridis"
) %>%
layout(
title = "NYC Restaurant Inspection Scores by Borough",
xaxis = list(title = "boo")
)